---
title: "家庭動態社會調查主樣本的生活滿意度"
output:
flexdashboard::flex_dashboard:
orientation: columns
source_code: embed
horizontal_layout: scroll
---
```{r setup, include=FALSE}
library(foreign)
library(ggplot2)
library(dplyr)
library(extrafont)
library(tidyverse)
library(colorspace)
library(shinyjs)
library(plotly)
library(stringr)
loadfonts("win")
```
```{r}
load("psfdPlot.Rda")
load("psfddata.Rda")
load("psfdPlot2.Rda")
load("psfddata2.Rda")
```
主樣本波次(1~5)
=====================================
Row {.tabset .tabset-fade}
-------------------------------------
### happy & life
```{r}
graph$happylife
```
### health & Shealth
```{r}
graph$health
```
### eco & work
```{r}
graph$work
```
### family & marry
```{r}
graph$family
```
1930~2000(每十年一波次)
=====================================
Row {.tabset .tabset-fade}
-------------------------------------
### happy & life
```{r}
graph$happylife_10
```
### health & Shealth
```{r}
graph$health_10
```
### eco & work
```{r}
graph$work_10
```
### family & marry
```{r}
graph$family_10
```
每年度的主樣本
=====================================
Column {.tabset .tabset-fade}
-------------------------------------
### happy
```{r}
graph2$happyp2
```
### life
```{r}
graph2$lifep2
```
### health
```{r}
graph2$healthp2
```
### Shealth
```{r}
graph2$Shealthp2
```
### eco
```{r}
graph2$eco_satis2
```
### work
```{r}
graph2$work_satis2
```
### family
```{r}
graph2$family_satis2
```
### marry
```{r}
graph2$marry_satis2
```
Column {.tabset .tabset-fade}
-------------------------------------
### happy
```{r}
graph2$happyp2
```
### life
```{r}
graph2$lifep2
```
### health
```{r}
graph2$healthp2
```
### Shealth
```{r}
graph2$Shealthp2
```
### eco
```{r}
graph2$eco_satis2
```
### work
```{r}
graph2$work_satis2
```
### family
```{r}
graph2$family_satis2
```
### marry
```{r}
graph2$marry_satis2
```